home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / comm / cnet / edp2days.lha / EDPTODShow.Rexx < prev    next >
OS/2 REXX Batch file  |  1997-02-22  |  1KB  |  32 lines
  1. /*EDPTODShow.Rexx version 1.0 by Edward Peyton  */
  2.  
  3. /* Define these settings: */
  4.  
  5. log='Sysdata:edpalltoday.ctxt'     /*Location and name of Log file for TODAY*/
  6. lista='Access Group'               /*Displaying Organization OR Access Group? */
  7. num=15                             /*Number of the last callers to show.   */
  8. strip="CNET:Tools/mastripper"      /*Path to the MAStripper program (included) */
  9.  
  10. /* -----------------------------  */
  11. options results
  12. Signal on ERROR;signal on SYNTAX;signal on IOERR
  13. file='Ram:syslast.txt'
  14. Address Command strip "FROM sysdata:edpalltoday.ctxt TO ram:syslast.txt"
  15. Say " Handle / Node #  Calling From    "lista      "            Pt BPS LogOn   Calls"
  16. Say " ---------------- --------------- ------------------------- - --- ------- -----"
  17. call open(tod,file,r)
  18. do i=1 to num
  19. lst.i=readln(tod)
  20. say lst.i
  21. end
  22. call close(tod)
  23. address command "delete >nil:" file
  24. Exit
  25.  
  26. SYNTAX:;ERROR:;IOERR:
  27. e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)'
  28. e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:';getuser 1311992;a=result
  29. getuser 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1
  30. logentry e2;e=sourceline(sigl);do while e~='';e3='c9Sourcecf: cd'
  31. e3=e3||left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  32.